syg <- matrix( c(6, 2, 1.0, 0.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(syg) = list( c("border_states", "missouri"), c("yes", "no"))
syg
sns <- matrix( c(1, 7, 0.0, 1.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(sns) = list( c("border_states", "missouri"), c("yes", "no"))
sns
ya <- matrix( c(6, 2, 0.0, 1.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(ya) = list( c("border_states", "missouri"), c("yes", "no"))
ya

test <- fisher.test(syg)
test

test2 <- fisher.test(sns)
test2

test3 <- fisher.test(ya)
test3

syg2 <- matrix( c(8, 0, 1.0, 0.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(syg2) = list( c("border_states", "missouri"), c("yes", "no"))

sns2 <- matrix( c(2, 6, 0.0, 1.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(sns2) = list( c("border_states", "missouri"), c("yes", "no"))

ya2 <- matrix( c(4, 4, 0.0, 1.0), nrow = 2, ncol = 2, byrow = TRUE)
dimnames(ya2) = list( c("border_states", "missouri"), c("yes", "no"))

test4 <- fisher.test(syg2)
test4

test5 <- fisher.test(sns2)
test5

test6 <- fisher.test(ya2)
test6

